home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / amigatalk / general / True.st < prev    next >
Encoding:
Text File  |  2000-02-14  |  373 b   |  18 lines
  1. Class True :Boolean
  2. [
  3.    ifTrue:  trueAlternativeBlock  ifFalse: falseAlternativeBlock
  4.       ^ trueAlternativeBlock value
  5. |   
  6.    ifFalse: falseAlternativeBlock ifTrue:  trueAlternativeBlock
  7.       ^ trueAlternativeBlock value
  8. |    
  9.    ifTrue:  trueAlternativeBlock
  10.       ^ trueAlternativeBlock value
  11. |
  12.    ifFalse: falseAlternativeBlock
  13.       ^ nil
  14. |
  15.    not
  16.       ^ false
  17. ]
  18.